(ccl-compile-write): Pass `left' to

ccl-embed-code to generate correct code of write-expr-register.

diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el
index 4ffea66caebae1ee1ef561830c0aff1f53d877a0..e9e46bb0c6cc001b03f07f58edd8e83601d84da4 100644 (file)
--- a/lisp/international/ccl.el
+++ b/lisp/international/ccl.el
@@ -774,7 +774,8 @@
               (ccl-check-register right rrr)
               (ccl-embed-code 'write-expr-register 0
                               (logior (ash op 3)
-                                      (get right 'ccl-register-number))))))
+                                      (get right 'ccl-register-number))
+                              left))))
 
          (t
           (error "CCL: Invalid argument: %s" cmd))))